here's my agent, that is launched via open-url in server document or directly in browser:
(all you need is to copy-paste this agent into your db and have the designated frameset prepared.)
sub initialize
Print "Content-Type:text/plain"
Print "Content-Type:text/html"
Print "<HTML>"
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.DocumentContext
Print "<H2>" + doc.Subject(0) + "</H2>"
Print "<H2>IP address is " + doc.Remote_Addr(0) + "</H2>"
Print "<H2>Sprache: " + doc.HTTP_Accept_language(0) + "</H2>"
Print "<H2>Browser: " + doc.HTTP_User_Agent(0) + "</H2>"
Print "<H2>HTTPS: " + doc.HTTPS(0) + "</H2>"
Print "<H2>Remote Host: " + doc.Remote_Host(0) + "</H2>"
Print "<H2>Remote Ident: " + doc.Remote_Ident(0) + "</H2>"
Print "<H2>Remote User: " + doc.Remote_User(0) + "</H2>"
Print "<H2>Server Name: " + doc.Server_Name(0) + "</H2>"
Print "<H2>Server Protocol: " + doc.Server_Protocol(0) + "</H2>"
Print "<H2>Server Port: " + doc.Server_Port(0) + "</H2>"
Print "<H2>Server Software: " + doc.Server_Software(0) + "</H2>"
lang = "en"
If Instr(1,doc.HTTP_Accept_Language(0),"de",5) <> 0 Then
lang = "de"
End If
Print "<H2>Sprache: "lang"</H2>"
Print "<HEAD>"
Select Case lang
Case "en"
Print "<META HTTP-EQUIV=""Refresh""
CONTENT=""10;URL=
http://chzns510/chz_db/ID1/budget.nsf/Frameset.Start.en?Open"">"
Case "de"
Print "<META HTTP-EQUIV=""Refresh""
CONTENT=""10;URL=
http://chzns510/chz_db/ID1/budget.nsf/Frameset.Start.de?Open"">"
End Select
Print "</HEAD>"
Print "</HTML>"
end sub
Return to top
. . homepage.nsf and different browser ... (~Tip Zekresaplo... 28.May.03)
Print this page
